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?J« n^fsion of the Wisconsin Center for Education Research is to imprbvi 
the quality of American education for all students. Our goal is that 
future generations achieve the knowledge , tolerance, and complex thiiikiM 
skills necessary to ensure a productive and enlightened deicbcratlc 
society. We are willing to explore solutions to major educational 
problems i recognizing that radical change may be necessary to solve these 
problems. 

Our approach is interdisciplinary because the problems of ediicatibh go 
far beyond pedagogy. We therefore draw on the knowledge of scholars in 
psychology, sociology* history, economics, philosophy, and law as well as 
experts in teacher education, curriculum, and administration to arrive at 
a deeper understanding of schooling. 

Work of the Center clusters in four broad areas: 

• Learning and Development focuses on individualsj in particular 
oh their variability in basic learning and development processes. 

• Classroom Processes seeks to adapt psychological constructs to 
the improvement of classroom learning and instruction. 

• School Processes focupes on schoolwide issues 4nd variables, 
seeking to identify administrative and organlzatibaal practices 
that are particularly effective. 

• Social Policy is directed toward deliheatihgthi conditions 
affecting the success of social policy^ the ends it can most 
readily achieve, and the constraints it faces. 

The Wisconsin Center for Education Research is a noninstructiohal Shit 
of the University of WisconBin-Madison School of Educatibhi The Center 
is supported prtmarily with funds from the Off ice bf Educational Research 
and improvement/Department bf Education, the National Science Foundation, 
and other governmental and nongovernmental sources in the U.S. 
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Intiroduct ion 

Background, tht ExptrimtnUl Softwart Project in th« Wisconsin 
Center for Education Research wis initiated with the purpose of 
;>xplorln9 a variety o+ hew technologies and approaches to software 
development. The original proposal envisioned a collaborative effort in 
which a team of snuesti gators would participate in developing a coherent 
approach to the Use of microcoriiputers in educational research. The 
departure of Professor Alex Uilklnson resulted In a shift in direction 
In the project away frwis the collaborative venture originally planned. 

The project caiie to focus on the application of new technologies to 
the creation of rich environments for writing. A low-cont microcomputer 
system was assembled (bickson, Neal , & Glllingham, 1984) that included a 
microcomputer, speech synthesisp voice recoghitiohi and a video disk 
player. In additibni a variety of a'^ternative Input devices were 
explored^ including light pens, touch tablets, mfre, ihd joysticks. 

In order to take advantage of this rich variety of hardware and 
peripheralsi considerable effort was devoted to designing software that 
permitted the imbbth Integration of these different technologies. In 
retrospect it is discouraging to reflect on how many weeks and months 
were spent in obtaining the various cables^ Interface cards, dip switch 
settings, ind software utilities, as well as in writing and debugging 
our own software. 

in the end, we succeeded in developing the 'Integrated Writing 
Environment' software, which is included In this final report. The 
■Talking Text Editor,' wfiich Is one part of the larger system, was used 
In a disstrtatton (Borgh^ 1985) study of the effects of spoken feedback 
Oil childrth^s writing. A number of pi it studies were conducted using 
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the "Vjdto Broitei * progrim in conjunction with the ^talking text 
Editor." A smKll number bi elereentiry school students were alto 
obserMed using the voice recognition system to interact with the 
computer . 

The outcome oiF these observitions ted me to a f undamentil 1y 
different perspective cm what might be the most profoundly important 
uses of microcomputers in education. This perspective was described in 
my paper oh "tholight provoking software" (Dickson, 1985). 

During the past months, the software developed in Xhi project has 
been cleaned up, debugged, md made more user-friendly. Programs that 
resided on a number of disks have now been brought together on a single 
disk (titled "Integrated Writing Environment") containing thf rnost 
important programs developed in the project. The programs have also 
been adapted so that they can be explored by users who do not have the 
full multimedia system developed in the Wisconsin Center for Education 
Research . 

In this final report, I will sunnarize some of the observations we 
have made and the software products developed. 
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talking text Editor 

Over the two years of tfie Experimental Softwari* Project, m 
examined a large number oi educational softwire programs. I was 
involved in revliuilhg software for Family Computino magazine md for 
"The New Tech TimeSi" a television prbgrarn produced for public 
television. Although parts of some of the software that I reviewed was 
intriguing, much of it was disappointing. In addition, observations of 
cdmputer use in schools from preschool through university levels 
produced a growing sense of the wide disparity between the claims being 
made for the potential Impact of microcomputers on education and the 
real i ty I observed. 

As did a number of other educators, I became convinced that the 
major application of microcomputers in schools that held significant 
promise for substantial impact in the next ten years was in the general 
area of wtMtingi We, therefore, gave priority to thinking about how the 
new technologies we were studying might be used to au^iieht the 
application of microcomputers to writing. 

Speech synthesis is a technology that has advanced rapidly in the 
past few years, so that it is now possible to equip a microcomputer with 
an acceptable speech synthesizer for about $200. At the time we began 
working on the application of speech synthesis to writing^ no commercial 
word processors were available that included the option of having the 
computer read aloud the sentences written. 

Ue developed a simple but adequate text editor, "Talking Text 
Editor,- (Appendix A) that could be easily used by children as young as 
grade one. The text editor allows a child to enter lines In a story and 
as soon as the child enters a terminal punctuation mark (period, 
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qa»»tion m»rk, or #xcl«iBttioh point) j ihi computer iatomiticai iy rtids 
the sfntencf iloud and «sKi th» clilld whether he or she wishes to hear 
it again, change it, or leave it the way it is. The child has the 

option o-f hearing the wholi? story at any time. 

Pilot testing this software gave hints that children were more 

likely to detect mistakes in their writing when they heard it read back 

aloud. 

Borgh decided to ?611o« up on tliese observations in her 
ditsertatidh, which was supported by the PrOjict. The results 6i her 
dissertation (Borgh, 1985), which were presented at the 1986 meeting o-f 
the ^erican Educational Reiearcfi Association (Borgh, 1986), con-firmed 
our hypotheies. Children In grades two and five wrote four stories 
using the Talking Text Editor. For two Of the stories the spoken 
feedback was eliminated. The results showed that children engaged in 
between three and seven times more editing under the spoken feedback 
condition as compared with the no spoken feedback condition. A 
manuscript from this dissertation has been submitted for review. Copies 
of the dissertation and manuscript are included with this report. 
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Video Browser Program 
The ExperiraenUt Software Project alto explored potential 
applicatioris of vldeodlsks In education. Ue ro6l(ed at several 
wideodlftks, including ones designed to teach specific topics, such as 
high school econowics and college chemistry, as well at more general 
videodisRs, such as the 'First National Kids Videodisc" and a wide6disk 
containing 30,890 archival pictures from the Srhithsbniah Institution. 

These explorations led to feelings of ihtense dissonance over the 
gulf between the extraordinary potential of the videodlsR technology and 
the difficulty in assimilating this technology Into education. Some of 
the most carefully developed Instructional materials using vldeodisks, 
such as^one devoted to the single topic of high schobi economics, leem 
unlikely to be widely used and seemed to us to be only slightly better 
than other media for presenting the same content. 

bur experience with the videodisk from the ^ithsonian gave me a 
perspective on how vldeodisks might be used in schobls that Is quite 
different fr«» that coramoh among instructional media designers. The 
videodisk from the Smithionlan Institution came 6»ith no documentation or 
catalog. The vldeodisk contained ah absolutely -fascinating collection 
of colorful pictures of almost every imaginable subject matter 
distributed almost at random across the disk. Photographs of astronauts 
were juxtaposed with native Americans, panda beirs, insects, and bid 
musical Instruments. Ue decided to create a simple catalog for our use 
but after a few days realized that we were not making much progress. 

I did a simple calculation and found that If we looked at each 
image on the videodisk for only one minute <the mljiimum to write down 
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ev»n a two or three word description), it wnald requlr« smebhs to worR 
<16 hours a for haH a ytar to look it each image only once! So we 

abandoned the notion of cataloging the disk. 

We also deternined that it would require a hard disk, expensive 
data base software, and a substantial number of person-years to create 
such a catalog. I concluded that the sheer potential of videodlsks may 
turn out to be a massivi impediment to their successful use in schools. 

This led us to develop the "Video Browser' program, that is 
included in the "Integrated Uriting Ehvlronmehf software. This program 
»s simple enough for a first grader to use. It permits anyone to 
'browse" through a videodisk by pressing the arrow keys on a 
microcomputer. Uhen the user sees en image of interest. It can be added 
to his or her file by simply pressing "K" for "keep". This littl? 
program, which requires only ?K of memory, essentially allows a user to 
treat any videodisk as a collection of pictures from which to sample. 
An analogy may be drawn to having a very large box full of color slides. 
A teacher might Use a program like the "yideo Browser" to select a set 
of "slides" to show to the cluss^connect Ion with a seclal studies unit 
on native Americans, for example. Qiveh a videodisk with a wide variety 
of images, the potential uses in a ctassroon would be quite broad. 

The -yideo Browser" ran help make the videodisk more accessible to 
teachers and students without requiring the larger data base programs 
required for more comprehensive uses of vldeodlsks. This progrim can be 
seen as small-scale technology that allows the teacher or student to use 
the Videodisk as a tool In ways they wiih to use it. This approach 
contrasts sharply with that taken by designers of instructional 
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pacRag««^ where the Pideodisk is designed to teach a partirutap content 
iri r-jlatiwely constrained -fashion. 
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ftrticulitlhg the yideo Browstr with the tiikihg text Editor 

the Nime Frames Progrm 
the Experimehtii Software Project next sought to articulate the 
videodisR with the word processor in order to allow writers to insert 
into their writings images taken irm a videbdisR. 

We found th^t children and adults seem better able to make use of 
the images tiiey select if they are able to nint the images. The "Name 
Frames* program, that is included in the 'Integrated Writing 
Envirorimehti" was developed as a bridge between tho 'yideo Browser" and 
the "TaltClhg Text Editor." In this program, which the user can enter 
automatically on leiving the "Video Browser/ the user can review the 
pictures selected and name them. 

In the same spirit discussed above, there is a f uhdamehtai 1y 
different relationship between user and videodisk when the user Is able 
to name the images with whatever name Is most useful, as opposed to 
having to remember a frame number or remember the name given in a data 
base of someone else's devising. Indeed, the same image might be used 
in multiple wayis and named accordingly. 
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Integrating V^ideodiik with Ubrd Processors 
the next step in our attempt at creating a rich, integrated writing 
environment was to articulate the vldeodisk with the word processor. 

the gtrsion oi the "Name Frames" program in the Mritegrated Ur i ting 
EnPironment" software allows the user to go directly ?rdm naming the 
images Into the "Talking text Editor" program. Within the au^tnted 
text editing program, the user can insert pictures ?rom the yidebdisR 
Into the story he or she is writing by simply entering the name given 
the picture into the story, enclosed in square brackets. Hhen the 
program detects the square brackets, the name is matched with the names 
in the users file, and the image from the vtdeodisk is displayed as the 
text is scrolled by pressing the return key. 

We conducted pilot tests with a small number of elementary school 
children in our laboratory, the students seemed to be enthusiastic 
about the effectively unlimited number of pictures they could look at 
and choose from. The variety of pictures se#med to lead to whimsical, 
creative stories. 

Although I do hot have hard data on a large sample to support it, 
my 'impression Is that the augmentation of the word processor with images 
of the kind available with videodisks would help create a highly 
stimulating writing environment. 

It is worth mentioning that this same system would allow i teacher, 
or student, to create a "slide show* out of images selected from the 
videddisk. By usffug the text editor and entering the names of the 
images in the desired order, a teacher could, for fxaiipli, have a highly 
flexible tool to extend the kind of teaching commonly done with 
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filriistrips or boxed sets of slides. The attractive features of asihg a 
videbdisR in this fashion include trte extraordinary number of images 
available and the possibility of reordering and ihtirmihgl ihg the images 
for different purposes. The images also do not become disordered with 
use I as can occur if students are allowed to s^ort through sets of 
si idesi for example . 
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Voice Recogni tion 

The nul ti-fiiedli system developed in the Exper inentii Software 
Project included voice recognition. The system we used could recognize 
up to eighty Words for an Individual user. Each user must first train 
the computer to recognize his or her voice. The users voice patterns 
are stored on disk for later use. 

Ue conducted a small pilot study of several elementary school 
students using voice recognition with several different pieces of 
software. The most interesting application of voice recognition that we 
observed was with the prdgranniihg iahguagei Logo. The students we 
observed trained the computer to recognize key Logo cbrmands^ such as 
*F8Rt4ARb,* *PENUP-, and ■COLOR". We then gave them assignments to draw 
certain shapes with the Logo turtle, as is cdmmdhly done in computer 
programming classes. Ue had the students contrast programming under 
voice control with typing in cocmands on the keyboard. 

The students reported, and our observations confirmed, that 
programming the turtle under voice control was much more engaging. The 
students cdfnmehted that when they used the keyboard, the turtle usually 
had already moved before they looked up from the keyboard, whereas with 
voice recognition the students^ eyes were focussed directly oh the 
turtle. In view of the widespread interest in Logo as ah instruct i bhal 
tool ^ I believe that further research on programming Logo under voice 
control shoujd be conducted. Our small scale study suggests this might 
be a fruiHul area for investigation. 
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bbhctading CDmrnentf 
the topics raistd in this ripbrt offer mihy interesting points of 
departure for further reseirch. Thif Exper imentil Software Project, true 
to its hame^ developed several Innovative software programs. Most 
importantly, the immersion in a wide variety of technologies led me to a 
fundamentally different perspective on educational uses of computers 
than I h'd at the outset of this project. 

Undbcibtably, by trying to explort so many different Rinds of 
hardware and software, the project was unable to pursue any of them in 
sufficient depth. Each new program was Infested with bugs. Each new 
interface bberd spoke a different language. 

But the 'Integrated Writing Environment* we have created can serve 
as a prototype for the work station of the near future in our schools. 
Speech synthesis can be added to microcomputers for about 1200. Compact 
videodisks are becoming available at costs hardly exceeding that of a 
disk drive. Voice recognition ciin be added to microcomputers for about 
41000. 

What is needed is a vision of how to articulate these different 
systems and integrate them into classrooms and the curriculum, the 
expl brat ions conducted in the Experimental Softwsire Project suggest that 
the potential benefits of such an fnttgrattd approach may be great bul 
they may also be difficult to achieve^ 
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APPENDIX A 



TftLKlNG TEXT EDITeS 



169 Rm 



no REM TALKING TEXT EDITOR 



120 REM 



1000 HIMEMt U382 



1005 P2R = 6 « 4094 
: DIM AL<2) ,AH<2) 



1010 NUMQUES > - 1 
: PTR = ismo 
: Df = CHRf (4) 



1015 60SU8 8606 



1017 e$ a STRYf 
: 60SUB ^2000 
I Cf = "By 
: 60SUB 22000 
: Cf = NAMEf 
I 6SSUB 62000 
: PRINT 



1019 REM 
(cJ) 

(cJ)"inajh body 



1020 NtJHQbES = NUM(3UES * 1 



1030 HI = INT <PTR / 25S5 

: LO a 25«z« (PTR / 256 - Hi) 

s LC = U6384 + (NUMQUES « 2)) 

J POKE t£,LJt 

I P0KE (Le ♦ 1),HI 



1040 PRINT RIGHTf (• • + STR» (NUMQUES ♦ 1),2);"! 

1050 DLS » •." 

: GET Af 

i POKE P2R, ASe (A$) 

: P2R - P2R ♦ 1 

: IF A« » DL* THEN 9000 



1060 OU s (37) 
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1070 OLD = PTR 

: CH.= i 

: GQSiJB 2020 

J PekE PTR, ASC <DL*) 

J PTR » PTR ♦ i 



1080 OLD « PTR 
1 GOSUB 3000 



1095 PRINT 
: PRINT 
: PRINT 



1090 VTAB 22 

s PRINT •e)HSNBE W)HdtE STORY N) EXT' j 

: IF <y0T> AND (SOUND) THEN PRINT ' H)EAR'; 



1092 IF Vlb THEN PMNT 
» s PRINT ■P)ICTURES'| 



1095 GET Af : 

t PORE P2R, ASe <Ai} * 128 

: P2R » P2R ♦ 1 
! IF A* « *c' OR A$ « 'C THEN GOTO 10000 



UOO IF CAf s -H' OR A« « 'h') AND <VOT) THBi PRltNT 
* : GOSUB 3000 
« : GOTO J 090 



1102 JF mm mt <M « or ^ - -p-) THB^ GOSUO 8900 
» : GOSUB 7005 
« ; GOTO 1085 



1105 IF ft* » -U- OR Af - 'w* THS^ GOSUB 5000 
» J SOTO 1090 



1110 IF A$ < > "N" AND Af < > "n' THEN 109S 



1140 GOSUB 7000 



1500 PTR s OLD 
: GOTO 1020 



1990 GET Af - 

: IF NOT «Af s -y-) qr <Af - 'Y') OR <Af - 'n') OR (Af » 'N')) THEN 1990 

1992 POKE P2R, ASC (Af) ♦ 128 
» P2R = P2R ♦ 1 
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1995 PRINT ft* 
: RETURN 



2QQQ nm 

<c»J)'input routine 
(cJ) 



2010 GETzSf 

: POKE P2R, ASC <S») 

J P2R " P2R + 1 

: eH i eH + 1 



2020 4F,(Af = ■,■) OR (Af = ■!■) BR <Ai » •?•) THEN DL* ^ At 
» t PRINT DL$ 
» : RETURN 



2838 IF <A* = CHR» (8)) fiHD (PTR < > OLD) THEN PTR = PTR - 1 

» : CH = CH - 1 

» : PRINT At J- 'jSf; 

» : GOTO 2010 



2035 IF A$ " ■£« OR A* = THEN 2050 



2840 IF NOT^(At > = V ■ AND A* < = "Z") OR <Ai > = "a" AND A* < = "z")) THDJ 
PRINT CHR* (7>| 
« : GOTO 2010 



2050 PRINT Ml 

! PORE PTR, ASC (At) 
! PTR = PTR ♦ 1 

20<jb GOTO ^010 



2200 REM 
(cJ) 

<cJ) "STUFF 
<cd) 

2210 VTAi X 

I HTAB 1 

: CALL - 958 

t RETURN 



2256 POKE - 16368,0 

2255 IF PEEK < - 1*384) < > 141 THEN 2255 



2260 POKE - U368,d 
: RETUW 
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3000 REM 
<cJ) 

<cJ)'speiR i sentence; 
(cJ) 



3065 eeSUB 3990 



3007 PIC =0 

: IF CHR» < PEEK (PTR)) = THEN PiD « 1 



3010 6BSUB 4000 

! IF tEFT« <Ut,l) = ■[■ THEN 60SUB 8800 

3dr5 IF RIGHTS (Wf^l) » THEN W$ « tEFt* (W$, LEN (Wf) - 1) 



3020 IF <S0iHD) AND (WOT) THEN PRINT D»;"PR«2" 
» I PRINT US 
» : PRINT D*;"Pi?ll" jSL 



3030 IF NOT (W) THEN 3010 



3040 RETURN 



3990 Ee = 1 6384 ♦ f NoHQUES » 2) 

I PTR « 256 » PEEK <LC ♦ 1) ♦ PEEK <LC) 
: RETURN 

4000 REM 
<cJ) 

<cJ)"9et a word. 
<cJ) 



4010 m = 

: U « 0 



4020 Xf « EHRS < PEEK (PTR)) 

: IF <)<« - '.■) OR (XS » ■!•) OR <X« = "?•) THBi & « 1 

« : m a Wf ♦ XS 

« : RETURN 



4025 IF PIC THEN 4050 



4030 IF (XS » • «) AND W$ < > THEN US - W> * ■ ■ 
« I PTR « PTR ♦ 1 
* : RETURN 



4050 US o US 4 Xf 



4065 PTR = PTR ♦ 1 
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: GOTO 4020 



5000 REM 

<CJ) 

<:cJ>«speaj< & j itt ttory. 

(cJ) 



5005 HOME 

: Cf s STRYf 

: 60SUB 62066 

J e* » "By* 

: 60SUB <S2000 

: Cf » JWIEf 

! GOSUJ 62000 

: PRim" 



5006 RBI lF(SOj*ib) AND <WOT^ PRINT DfPR«2^ = STf?Yis GOSUB 626oO :C 

♦ = "BY": GOSUB 42000 :C* - NAME*: GOSUB 42600: PRINT M"PR«"jSL: PRI 



5010 TEMP « NUHQUES 

: FOR NLMQUES = 6 TO TiriP 



5015 GOSUB 3996 

PRINT RIGHT* (" " + STR* (NUMQUES + l),2)j-: 

5020 GOSUJ 5500 
: PRINT 

: GOSUB 3666 



5036 IF INT ((NLMQUES 4 i) / 22) < > (NUHQUES ♦ 1) / 22 THm 5050 
5040 GOSUB 2250 

5050 NEXT 

: NHMQUES « TSIP 

5055 PRINT 

I PRINT 

: PRINT 



5054 RETURN 







5046 


yTAB PEEK (37) 


• 
• 


RETURN 


5070 


POP 


t 


GOTO 10006 


5560 


REM 


<cj) 
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<cj) 



5510 

: C » 5 
: PIC = 0 



5520 eeSUB 4000 . ^ 

MF LEN (W$) ♦ C > COL THEN PRINT 
» : PRINT ■ "i 
» ! C ■ 5 



5525 IF tEFT* Jtf$,l> = • " AND C » 5 ^WD LEN <Wf) < > 1 THB4 U» - RISffTi (U*. 
t0< <W$) - 1) 
« : 60Tb 5525 



5527 IF W$ = ■ " AND e - 5 THEN 5520 



5530 PRINT Uf ; 

: e » C ♦ LEN <Wf ) 



5540 IF U THEN RETURN 



5550 GOTO 5520 



iODO REH 
<cJ) 

<cJ)*Edit last line. 



6005 GOSUB 6010 

; OLD = PTR 

; PRJRT RJ6KT* <" " ♦ STW (NUMQUES + 1),2):"! "« 

: 60SUB 2000 

I POKE PTRj ASC <DL») 

! PTR » PTR ♦ 1 

: OLD = PTR 

: GOSUB 30(te 

} GOSUB 7005 

: GOTO 1690 



6010 UTAB 22 

i HTAB 1 

: CALL - 958 

I GOSUB 3990 

: TlEHP = PTR 



6015 PRIKT RIGHTf <" ■ ♦ STR$ <NUHQUES ♦ l),2)}-« "j 



ERIC 
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6620 eeSUB 5500 



4030 PRINT 

i PRINT : 

: PRINT "REPUeE LIKE NUMBER «} RI6KT* <• " 4 STRf (NUMGUES ♦ 1) 

6040 PTR i TIEMP 
: RETURN 



7000 REM 

(cJ) 

<cJ)»tl5t the story. 
(cJ) 



7003 IFiNOT <CH > 35) THEN X = OV + 2 « <0V < 20) + 1 « <0V > 19) 
« : GOSUB 2200 
« I RETURN 



7005 HOME - 
! C* = STRYf ^ 
: GOSUB 62000 
: Cf = "BY" 
: 60SUS 62000 
: C$ » J««E* 
; 605UB 62060 
: PRINT 



7010 TEMP s NUMQUES 

: FOR NUHQUES = O TO TB1P 



7028 SOSiJB 3990 

: PRIKT RIGKt* <• ■ + STRt <NUW3UES + l),2)j": "j 



7030 GpSUB 5500 



UNIIIQUES + 1) / 22) < > (NUHQUES ♦ 1 ) / 22 W&i 7040 



7036 GOSUB 2250 



7040 PRINT 

: ND<T ^ 
8 NUMQUES - TEMP 



7050 PRINT 
s PRINT 

I PRINT - 

: VTAB PEEK <37) - 2 



7060 RETURN 



8000 REM 
<cJ) 

<cJ)"query. 

<cJ) 



8001 PeXE 768,160 

! P0KE 769,0 

i POKE 770,32 

: POKE 771,44 

: POKI 772,254 

I POKE 773,96 



8003 HOME 

! e« » "TALklNij TEXT EDITOR" 

! GbSUB 62010 

: PRINT z 

! Cf » "DESIOt-JED BY PATRICK DICKSON" 

I 60SUB 626 ir 

t PRIMT 

s e» « "PRbeiwMMEb by" 

I bbSUB 62010 

I PRiriT 

: Cf » "DAN JfiTNIEKS AND CURT ELIJWKN" 
I GOSUB 620 10 
; PRINT 

! e« » "VERS! ON I JULY 13, t986" 
t GbSUB 62010 
: ObTb 8006 



8005 INPUT "DO YOU HWE 80 COttl'NS? — >"jlN$ 

; IF IN* - "Y" OR INI - "y" THEN COL « 80 

» : SL =» 3 

* : GbTb 8008 



8006 COL s 40 
: SL = 0 



8688 PRINT 

J PRINT 

t INPUT "bb YOU HAWE A VIDEO DISK? <Y/N)i"jIN$ 

: IF IN* « "N" OR IN* ■ "h" THEN 8011 



8009 PRINT D*"BRUN VI DEO. CODE" 
I POKE 9,3 
: VID 1 i 



8010 & "PLAY" 



8011 INPUT "DO YOU HWE A VOTIWX? *|IN* 

I IF IN* - "Y" OR IN* ■ "y" THEN Vbt ■ 1 



ERIC 
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* ! SOUND = 1 



8D12 LD = 6 



8015 PRINT 

: INPUT 'LOAD EXISTING STORY? 'jlN* 

t IF IN* « "Y- OR IN$ = -y" THEN tO » 1 



8019 PRINT D$"PR«';SL 

: HOHE 

J PRINT 

: PRINT 

J INPUT •mm IS YOUR KWiE? — >'5Nifii1Ef 



8020 INPUT 'WHAT IS THE STORY NfWE? — >'tSTRYi 



8021 INPUT -WJWT IS THE DATE? — >»jDTE* 



8025 N s 3 

: Rf " "BR* + zSTR* (N) 

: IF SOUND THEN PRINT D*'PRji2' 

« t PRINT Rf 

« : PRINT M'PRH'jSt 



8030 IF NOT <yiD) THEN HOHE 
» : RETURN 



8032 PRINT 

: INPUT •DO YOU i4ANT TO INCLUDE PICTURES ? '.-IN* 
: IF INf < > "Y- AND IN$ < > 'y' THEN 8034 



8033 INPUTS ENTER PICTURE FItE N»iE ;H 
: Ft »=Ff + ".FRicWES.N^VIED" 
t 60SUB 8560 



8034 IF to THEN F* » STRYf + ■.■ + NAME* + + DTE* 
« t 60T0 8600 



8035 HOME 
: RETURN 



8037 N = 3 

: 60T0 8055 



8040 INPUT "CI^NGE THE SPEECH FWTE? <Y/N) ~>';IN» 

J IF IN* - "N* OR IN* - -n- THEN H(WE 

« : PRINT 

* t RETURN 



8090 INPUT "BfTER NEW SPEECH RATE <l-9) -->«;N 
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: IF N < 1 OR N > 9 t»Eti 8050 



8035 PRlKt 

J PRIMt "THE SPEECH RATE IS "jN 



80^0 R$ « "iR" ♦ STRf <N) 
I PRIKTT DfPR«2' 

I PRIWT Rtj'THIS IS THE SPEECH RATE." 
! PRINT W'PRM'jSL 
: GOTO 8040 



8500 REM 
<cJ) 

<cJ)"LOAD IN PICTURE FILE 



8305 PRINT W-yERIFY'fF* 



8510 PRINT 0«"0PEN';F9 
: PRINT Bi-RBJiD";?* 



8520 INPUT t 
: DIM FR(L) 
t DIM hwn<L) 



8530 FOR 2 ■ 1 TO L 
I INPUT FR<Z) 
I INPUT NAM$<2) 
J NEXT Z 



8540 PRINT Of " CLOSE " i Ft 
t RETURN 



8^00 REM 
<cJ) 

(cJ)"6ET EXISTING FILE 
<cJ) 



8dl 0 PR^NT M" BLQAD- ; Ft | " j Al 4383" 
i NbHOUES - PEEK (16383) 



8620 LN - NiJMQUES 

: X « 0 

I FOR NUMOUES » 0 TO LN 
: QPSUB 3990 
I IF PTR > X THB^ X - PTR 
« I TEMP NUMQUES 



8630 NEXT 

: NUMOUES » TBIP 
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} GbSUB 3990 
i OLD » PTR 

: NUMQUES = NUHQtJES - 1 



8640 P0P 

: 6eSUB 7005 

t Oy = PEEK <37) - 1 

: eOTb 1090 



8800 REM 

<cJ5 

<cJ>"FIND & DISPLAY PICTURE 
<cJ> 



8810 W$ = MIDf <W»j2, LEN tW*) - 3) 
: FOR Z = 1 TO L 
J IF W$ = NAm(Z) THEN 8820 



8815 NEXT Z 
1 RETURN 



8820 Cf = "S»ReH FRAME - + STRt <FR<Z)> ♦ " SEARCH" 
8825 tc C% 



8827 ObSUB 2250 



8828 & "FLIP" 



883C OeSUB 2250 



8840 k *FLIP" 



8850 pop 
i RETURN 



8900 Rei 

<cd)"LIST PICTURES 
<cJ) 



891 e HOME 

: PRINT 

: P^lNt 

: Ci " " PICTURES AyAILABLE-" 

s GbSUB (S2000 

t Cfi-: "-«-»iT.ii.,.i,i,i, ,1 II,. 

: 60SUB 62000 

i PRINT 

I PRINT 



ERIC 
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8920 FOR Z a 1 to L STEP 2 

: PRINT RIGHTS <" " * STRf <Z),2);«. •rhSSHCZ)! 
I HTAB 20 

V 2 < > L TH&J PRINT RiBHTf <" ' ♦ STRf <Z ♦ l),2)j'. ' ■N^<2 ♦ 1) 



8925 NBfT 

I PRINT 

: PRINT 

: PRINT 



: PRINT "ENTER NUMBER TO VIEW. "0" TO EXIT ! "; 



8930 


INPUT ■"jlN 
: IF IN « 0 THEN RETURN 


8935 


IF IN > 0 AND IN < » L THEN 8945 


8940 


GOTO 8930 


8945 


2 « IN 


8946 


i:* » "SEARCH FRfitiE " ♦ STR$ <FR<2)) ♦ • SEARCH" 


8948 


& Cf 


8950 


4 "FLIP" 


8955 

■ 
• 


GOSUB 2250 
HOME 


8920 


S "FLIP" 


8970 


GOTO 8910 


9000 REM 
<cJ) 

<cJ)"the end. 

<cJ) 


9020 

m 


POKE PTRj ASC <DLf) 
PTR « PTR ♦ 1 


9025 

i 


PRINT 
PRINT 

INPUT "WHAT IS THE STORY NAME? -->"jSTRY* 


9030 


Si ■ LEFtf (STRYf 4 "." ♦ miBt ♦ ".» + DTEi.SO) 


9035 

t 


PRINT 
PRINT 
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: PRINT "GOODBYE "jN(!iMEiiS m^E A NiCi DAY!" 
• GOTO 9045 



9B4B PRINT *YbUR FILE IS " ;PtR - 14384;" BYTES LQNS" 
9045 POKE 16383 iNUHQUES 



9050 PRINT GHRt <04) ;"BSAVE" ;S*;" ,A16383,L" ; STR* <PTR 

9060 REM 
<cJ) 

<cJ)"Saof history flit 
(cJ) 



9070 Sf « S$ + ".HST" 



9080 PRINT CHRf <04) j"BSAVE" jSf ;" ,A24576,t' ? StRi <P2R 



9090 PRINT 

t INPUT "DO YOU USfT TO WRITE «^OTHER STORY' 'iIN* 
I IF INf = -Y" OR IN$ = "y" THEN RUN 



9095 END 



iOOOO REM 
<cJ) 

(c J) "change any line 



10005 X " 22 

: GbSUB 2200 



10007 INPUT "eWWGE WHICH LINE? — >"jIN« 

: IF im <im> « 0 THEN ibbbb 



lOdlO FOR X » 1 TO LEN (INf) 

: POKE P2R4 ASC ( MID$ (IN*,X,1)) 

S P2R « P2R + 1 

t NDCr X 

: Nz= m (INf) 

! IF N > NUMQUES + 1 OR N < 1 THEN 10000 



10015 N = N - 1 



lbbl6 LN ■ NUMQUES 
: Nl « N 



10017 X = 0 

I FOR NIMQUES - 0 TO LN 
dbSUB 3990 
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: IF PTR > X THEN X « PTR 
» i TEHP = NUMQUES 



iOOie NBCT 



10020 NUMQUES = Nl 
i 60SUB 3?90 
: N » PTR 



18025 X s N 
J 0 « N 
t LIM « N _ 

t GosuB ibsob 

: AL<0} > XL 
t AH(0) « XH 
J REM •TO addr. 



10040 edsus 10600 



10050 X = N 1 
I b » X - 0 
t 60SUB 10500 
J fltU) = xt 
: AHU) = XH 
I REM " FROM iddr. 



10060 NUMQUES « TEMP 
: GOSUB 399B 
I N ■= PTR 
: 60SUB 10600 



10065 IF X - J = N THEN 6300 



10070 X " N 

: 60SUB 10500 

I At<2) » XL 

! AH<2) a XH 

; REM " THRU addr. 



10073 NUMQUES ^ Nl 
t 60SUB 6010 



10075 X » X ♦ 1 
I BbSUB 10500 
: NUMQUES « Nl 
: dOSUB 3990 
: POKE Le,XL 
t POKE Le + 1,XH 



iOOiO POKE 66,AL<b> 
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: POKE <S7,ftH<6) 

i PORE 36,AL<n 

: POKE dl ,ARU> 

: POKE 62,AL<2) 

: POKE 63,AH(2) 

: CAtL 738 



10090 FOR NUMQUES « 0 TO LN 

: 60SUB 3990 

: X = 256 « PEEK <LC ♦ 1> ♦ PEEK CLC) 

: IF X > tiM THEN X = x - b 

* : OOSdB 10500 

* : POKE LC.XL 

» I POKE LC ♦ 1 ,XH 



10095 NEXT 



10109 NiJMQbES s Nl 
; GbSUB 3990 
: OLD « PTR 



10110 PRINT RIGHTS <* " ♦ STR* (NUMQUES ♦ 1),2)!"; "j 

: msm 2000 

! POKE PTR, ASC (DL$) 

I PTR = PTR ♦ 1 

i OLD = P7R 

: 60SUB 3000 



10168 NUHQUES " LN 
> 60SUB 7005 
: GOTO 1090 



10500 XH » INT <X / 256) 

: XL = 256 » <X / 256 - XH) 
: RETURN 



10600 X$ = CKRS < PEEK <N)) 

: IF Xf » •!• OR Xf = •?" OR X$ = THEN I062G 



10610 N = N * 1 
I GOTO 1060<> 



16620 RETURN 



62000 REM 
<cJ) 

<cJ)"ceht*r u 1 in» 
<cJ) 



62010 HTAB 20 - LEN <C») / 2 - 1 



ERIC 



! PRIMt C* 
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VIDEO BROUSER PRBSRv^ 



Appendix B 



10 PRINT eHRt <4)"BRijN VIDEO. CODE" 
: POKE 9,3 



20 KIMEH; 29179 



3b & "PLAY" 



40 Dt = CHRi <4) 
: AJ>OR = 29184 
: GOSUB 1000b 



5b FRAME =1 

: C% s • FRAME CWPTER" 



55 & C$ 



60 IF FIRST » 0 THE^i FIRST = 56001 
* t tAST = 0 



70 & -FtlP' 
: GOTO 1030 



1000 REM 
<cJ) 

<CJ)"MA1N PROSlWj BODY 



1005 & "FLIP" 



1010 Cf « "SEARCH FRAME " + STR$ (FRAME) 4 - SEAReH" 

1015 & Ci 

: GOTO 1030 . 



1017 C% ■ "STEPREV" 
J FRAME « F5WME - 1 
: IF REVIEW TH&I D « - 1 
« : GOSUB 9500 



1020 IF FRAME < 1 THEN FRAME = 1 
» ! e$ = "SEARCH FR^E 1 SEARCH" 



1021 GOTO 1025 



1022 C* » •STEPFWD" 
: FRAMF * FR^E + t 
I IF REVIEW IHBi D = 1 



i .- • 
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* i 60SUB 990 0 



1023 IF FRflME > 56000 TH&j FiVWE « 36000 
* ! Cf»' SEARCH FlMME 56000 SEARCH" 



1025 i C% 



1030 REM 



1040 GfrSf 
: PRINT 

s IF ASC (Ati) = 8 THEN 1017 



1045 IF ASC <AS) - 21 THEN 1922 



1047 HOME 



1050 tt "FLIP* 



2000 HflME 

: GbSUB 9000 

! IF TEST THEhi If « - IN 

» I GOTO 2010 



2005 If = ' NOT IN " 



2010 PRINT "CURRENT FR^E IS "fFWWE 
: PRINT "IT IS "I 
I INVERSE 
: PRINT If; 
: NORTttb 

: PRINT "YOUR FILE.' 



2020 PRINT 

? PRINT 

: PRIfT? "K)EEP THIS FIWIE" 

! PRINT "DJELETE THIS FFWME" 

; PRINT •6)0 TO NEW FRW1E Nl^BER" 

: PRINT "l?)EyiEW FfWMES IN CURRENT FILE" 

: PRIffT 'Q)UIT" 



-330 PRINT 

'. PRINT 

5 PRINT •me OTHER KEY RESUMES BROWSING." 

: PRINT ■ -> BROWSE FORWARD" 

: PRINT " <- BROWSE BACKWARD" 



2040 PRINT 
: PRINT 

I PRINT "ENTER SELECTSCN s "j 



37 



33 



20S6 

• 


GET At 
PRINT Ml 






2060 


IF At ' "Q" 


THEN 


2200 


2070 


IF A$ "R" 

GOTO 2097 


THEN 


REVIEW = 1 


2080 


IF At 3 'G' 


THEN 


2100 


2090 
» : 


IF Ai = "b- 

GOTO 2000 


THEN 


GOSUB 8000 


2092 

« ! 


IF A« = -K" 

60T6 2000 


THEN 


609UB 7000 


2095 

« s 


If REVIEW THEN REWJEUJ - 0 
FRAME « Fl 
GOTO 1300 


2097 

t 

m 
• 


4 "FLIP" 
Fl « FRAME 
GOTO 1030 






2160 


REM 







<cJ) 

<CJ) "ENTER FRAME II 
<cJ) 



2105 PRINT 
! PRIhJT 
s PRINT 



2110 PRINT 

: PRINT "CURRENT FRAME IS "5 FRAME 
t INPUT "ENTER NEW FRAME II : " ;T1 



2120 IF Tl < 1 OR Tl ) 56001 THEN 2110 



2130 FRAME » INT (Tl) 
: GOTO 1000 



2200 REM 
<cJ) 

<cJ)"SAW- FILE 

<cJ> 



2210 HOME 
: VtAB 11 
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: INPUT -FILENAME TO SAVE :"jF$ 



2215 FLASH 

{ PRINT "SAVING "{Ff 
i NQRhfeL 

: PRINT ■ MAY TAKE SEVERAL MINUTES..." 

2216 PRir^ , 

: PRINT ■ DEPENDINJS ON Ffe*iE NUMBERS CHOSEN." 

2217 XH = INT (FIRST / 256) 
: POKE 29180,XH 

: POKE 29181,256 « (FIRST / 256 - XH) 

2218 XH « INT (LAST / 256) 
: POKE 29182jXH 

! POKE 29183,256 « (LAST / 256 - XH) 

2220 PRINT M'BSAVE " }F$; ■ .PICS,A29:80 ,L7804' 
2225 Fi « Ff ♦ '.FRAMES' 



2230 PRINT W'OP&i'jF* 
i PRINT D$*BELEtE*iF$ 
: PRINT D»*0Pe4»jF$ 
: PRINT W'WRITE'jFf 

2235 PRINT COUNT 

2240 FOR Zl » FIRST TO LAST 
1 FRAME » 21 
: 6dSUB 9000 
: IF TEST THEN PRINT Zl 

2245 NEXT 21 

2250 PRINT D$' CLOSE' ;Ff 

2255 H^E 
: VTAB 11 

2260 INPUT » 00 YOU WAMT TO btfUE THESE FfeiHIS NOW TYPE Y FOR YES N FOR N.' 
jINf 

2270 IF IN* « "Y- OR IN* - 'y' THEN PRINT Dt'RUN miE FIWiES' 

2290 HOME 
: END 



2306 REM 
<cj) 



O 39 
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<cJ)"LeAD A FILE 
<cJ) 



2305 PRINT 

: PRINT 

: PRINT •QHIT '.PICS' SUFFIX IN FILEhWIE." 

I PRINT 



2318 INPin- "NAME OF FILE TO LOAD j";F« 



2320 PRINT D»"BLOfiD";F^;".PieS,A2>l80" 



2325 FIRST = 256 » PEEK (29180) + PEEK (29181) 



2326 LAST = 256 » PEEK (29182) + PEEK (29183) 



2330 PRINT Df'OPEN" jFf |«.FR»1ES« 
f PRINT D$»READ';Fi;".FRraWES" 



2340 INPUT COUNT 

: PRirrr D*" close •;F$;".FP^¥1ES" 



2350 RETURN 



6000 REM 

(CJ) 

<cJ)"GET A RETURN 
(cd) 



6010 GIT A$ 

I IF ASC (At) < > 13 THEN 6010 



6020 PRINT 
: REtURN 



7000 REN 
(cJ) 

(cJ)"ADD A PICTURE 
(cJ) 



7002 COIWT s COUNT ♦ 1 



7005 GOSUB 9000 

: IF TEST THEN RETUWi 



7010 POKE PYtE, PEEK (BYTE) + 2 * BIT 



7020 IF FRAME > LAST ; lEN LAST » FlWHE 



40 



36 

7825 IF FRAME < FIRST T i FIRST « FRfiOE 



7030 RETURN 



8008 REM 

<cd) "DELETE A PICTURE 
<CJ) 



8005 60SUB 9800 

1 IF NOT (TEST) tHm RETURN 



8807 COUNT » COUNT - 1 



8010 Tl » PEEK (BYTE) - 2 * BIT 



8028 IF Ti < 8 THEN STOP 



8830 POKE BYTE.Tl 



8840 IF FRfiME » LAST THEN D « - 1 
« I GOTO 8055 



8050 IF FR^E » FIRST tHm D = 1 
« : GOTO 8065 



80<S0 RETURN 



80<i5 Fl » fwm 

: IF LAST » FIRST THEN LAST = 0 

« : FIRST « 56001 

* : RETURN 







8070 


FRAME " FIWHE ♦ D 


9 

9 


GOSUB 9000 


• 
• 


IF NOT (TEST) THEN 8070 


8075 


IF D » - 1 THEN LAST - FRAME 


« J 


FRAME » Fl 


« 1 


RETURN 


0080 


IF D « 1 THEN FIRST « FWWE 


» : 


FRAME " Fl 


» : 


RETUW^ 


8085 


STOP 



9000 REM 

(cJ) 

(cJ^"TEST PICTURE 
(cJ) 



4i 

ERIC 



37 



9010 BTTE « ADDR + iNt <pRAHE / 8) 



9020 Bit - IMt < (FRAME / 8 - INT (FRi^E / 8)) « 8 ♦ .05) « SGN <FR^^;2 / 8) 

9030 Tl » PEEK (BYTE) 
! IF Tl « 0 THEN 9080 



9050 F8R Z = 0 TO BIT 



9060 Tl = INT (Tl) 
: Tl » Tl / 2 
! NEXT 



9070 IF INT (tl) < > Tl THEN TEST = 1 
« : RETURN 



9080 TEST » 0 
i RETURN 



9900 REN 

(cJ) 

(cJ)"REViEy FRAMES 
(cJ) 



9510 GQSyi 9000^ 

: IF TEST THEN RETU»< 



9520 FIWME » FlWIE ♦ D 

J IF (FRAME ( FIRST) THEN FR^E = FIRST 
« I 60Tb 9540 



9525 IF (FRAME > LAST) THEN FRAME » LAST 
* i GOTO 9540 



9530 6OSUL9OO0 

: IF NOT (TEST) THEN 9520 



9540 Cf « "SEARCH FWWE • + STRf (FRAME) + " SEARCH" 



leOOO Rm "INITIALIZE" 



iOObl HOME 

: Cf » "yiDEO BROUSER PROOfS*!" 
t GOSUB 20000 



10002 PRINT 

I Cf « "DEVELOPED AS PART OF" 
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: 60SUB 20000 



ioeoa print 

: Cf ■ 'THE EXPERIMENTAL SOFTWARE PROJECT" 
! GOSUB 200C0 



10005 VTAB 18 

: Cf » ■ INITIALIZING ARlWY" 

: GOSUB 2D'^g0 



10006 PRINT 

I Cf* "THIS WILL TAKE ABOUT ONE MINUTE" 
: GOSUB 20000 



lOeie A « ADDR 

: B - A 4 7000 



10020 FOR Z » A TO B STEP 2 
: POKE Z,0 
I POKE Z ♦ 1,0 
i NEXT 



10G3O & "SEARCH FjWIE 1 SEARCH" 



leidd HOME 

: Cf « "yiOEO BROUSER PR0GIW1" 
t GOSUB 20000 



10102 PRINT 

: Cf ■ "ALLOWS YOU TO SELECT PICTURES" 
: GOSUB 20000 



10104 PRINT 

8 Cf « "FROM A VIDEO DISK FOR USE WITH" 
I QQSUB 20006 



10105 PRINT - 

I Cf » "THE TALKING TEXT EDITOR PR0GlS*1." 
I GOSUB 20000 



10110 Cf» "DESIGNED BY W. PATRICK DICKSON" 

I PRINT 

I PRINT 

I 6bSUB 20000 



10120 Cf » "PROGRAMED BY DAN JATNlEKS" 

i PRINT 

: PRINT 

: GOSUB 20000 
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10136 pnim 

i PRINT 



10135 Cf » "yfRSION: JULY 15, 1986" 
I GOSUB 20000 



10140 Cf i»:"?C) 1984, 1986' 
: 60SUB 2000(1 
: PRINT 



10141 e» » 'BY THE BOARD OF REGENTS OF THE" 

I GOSUB 20000 z 

: Cf =z" UNIVERSITY OF WiSCGNSlN-tWDISQN" 

I GOSUB 20000 



10150 60SUB 20100 



10200 HOME 
I PRINT 

: PRINT " THIS PROQiWI IS DESIWED TO ALLOW" 

: PRINT "A USER TO BROUSE THROUGH A giDEODISK ^DSELECT THE PICTURES imi 

ARE OF" - 
: PRINT "INTEREST. THE PROBRAH WRITES A FILE" 



10210 PRINT "TFHT COf^TAINS THE FWME NUMBERS OF THE" 
t PRINT "SELECTED IW46ES." 



10230 PRINT 

I PRINT " THt PROGRAM BEGINS WITH FRAME 1." 
: PRINT "USE THE RIGHT ARROW TO BROWSE THROUGH" 
I PRINT "THE PICTURES^ USE THE LEFT ARROW TO" 
I PRINT "BACK UP. PRESS WY OTHER KEY KEEP A" 



10260 PRINT "PICTURE IN YOUR FILE." 

: PRihrt 

I PRIhfr 



10270 PRINT " -> BROWSE FORWARD" 
: PRINT " <- BROWSE BACKWARD" 
I PRINT " ANY OTHER KEY TO GO TO MENU." 



10280 GOSUB 20100 



10290 HOME 

! VTAJB 11 

I PRINT "WOULD YOU LIKE TO LOAD fiH EXISTING" 

I PRINT "FILE ? <Y/N) — >"; 

: GET At 

1 PRINT A$ 

: IF A$ " "Y" OR A* ■ "y" THEN 2300 
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10300 


RETURN 


20000 


HTAB <20 - LEN 


• 
■ 


PRINT CS 


t 


RETURN 



20100 yTAB 23 

; Cf=- PRESS RETURN T8 eONTrNUE* 
: 60SUB 2000D 
: P0KE - 16366,0 



20110 IF PEEK < - 16384) < > 141 THEN 20110 



20120 POKE - 16368,0 
: RETURN 



ERIC 
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NAME FRAMES PROGRAM 



Appendix C 



2 REM 



4 REM f^WE FRAMES PROGRAM 



6 REM 



10 Df » EHRf <4) 



12 PRINT Df-iRlW VIDEO. CODE" 
{ POKE 7,3 



20 HOME 

J e» « -NSlE FiWMES PROGRAM" 
: GOSUB 20000 



22 PRINT 

i Cf » "DEVELOPED AS PART OF" 
: GOSUB 20000 



24 PRINT 

! Cf ■ "THE EXPERIMENTAL SOFTWARE PROJECT" 
i GOSUB 20000 



26 PRINT 

: PRINT 

: et » "DESia^Ei) BY PATRICK DICKSCN" 

: GOSUB 20000 









28 




PRINT 






Cf * "PR0SIWM1ED BY DfiH JATNIEKS" 




• 
• 


GOSUB 20000 


30 




PRirfT 




• 


Cf « "VERSION J JULY 15, 19B<5" 




• 
• 


GOSUB 20000 


31 




PRINT 




: 


PRINT 




t 


PRINT 


32 




PRim" 




i 


PRINT "PLEASE WAIT ABOUT ONE MINUTE." 


40 




4 "PLAY WAIT 156" 


42 




& "STEPFWD" 



46 



50 


HOME 








i 6PSUB 200DD 


31 


PR INI' 




: PRINT 


52 


ri\ii^i inio rfCUOfWrl HLuUtvo TUU Tu Nnnc 


54 


PRINT 


— 


! PRINT *P1PTNPPQ bbClJioilCIV lrr^sr\ iivrua 
■ ri\2i^i riuiunco rKbVlUUoLT S^LcUTlcD WITH 


56 


PRINT 




J rniMi iMt ViDcu cKOUbcR PRuBivVl." 


98 


PRINT 




. rKiNi 5ULH PiCToRE SETS APPEAR IN THE DIl 




PRINT 




. PKINT DATALOu AS TWO FILES WITH SUFFIXES' 


62 


PRlhg 


-- 


s PPTMT 'nc ^ Df^Q^ Akin / rnAwpf* / ■ 


64 


eesuB 20! do 





2 HONE 


66 


PRINT ^ , 




• rr^ini cNicK mt ri LTURc rlLc NhME BELOU" 


6B 


PRINT 




s rnii^i Miinui;i R bUrrlA AND PRESS RETURN. 


70 


PRINT 


_J — 


1 rriini mritn THc rKDoRNn PAUSES | 


f £ 






! PRINt " ALWAYS PRESS RETURN TO 60 ON" 


74 


PRINT 




f PRINT 




» PRINT 


— 


I PRINT 


SO 


INPUT "FILE NAMEt "iFf 


90 


F« - Ff ♦ '.FRWIES' 


100 


PRINT D$"OPEN"jFf 




1 PRINT Di'REAb'iFf 



47 

o 

ERIC 



lid INPUT L 

: DIM FR<L) jNftHfd) 



120 FOR Z ■ 1 T9 L 
i INPUT FR<2> 
: NAm<Z) « 
: NEXT 



130 PRINT W CLOSE" ;F^ 



140 eesuB 600 



200 HQHK 
! Z « i 



21 0 GOSUB 500 
: Z = 2 ♦ 1 
I IF 2 < = L THEN 210 



300 HOKE 
: PRINT 



310 FOR Z = 1 TO t 

: T$ » " « ♦ STR$ (2) 

: PRINT RIGHTf <Tf,2)5'. "sNAHfCZ) 

: NEXT Z 



320 PRINT 

i INPUT "wwrr TO ewwoE mf m^Es? <y/n) i"ji» 



330 IF U » "Y" OR U » «y" THEN 340 



335 IF I* « "N" OR If a »n" THEN 400 



337 GOTO 320 



340 iNPin' "effER FRiVIE TO CHW^GE :";Z 
: GOSUB 500 
: GOTO 300 



400 PRIffT = 

I PRINT "EWER A FILE FWME FOR THESE PICTURES* 

: PRINT 

: INPUT *FILE rWIE* ";Ff 



405 Ff - Ff 4 ' .FR«1ES.t«MED" 
» PRINT !>f"OPEN'|Ff 
: PRINT WURITE';Ft 



48 



410 PRINT L 







420 


FOR Z ■ 1 TB L 




8 PRim FR<2) 




1 PRINT NAHf<2> 




1 ND(T Z 


430 


PRiNT W'CLOSE";Ff 




: PRINT 


440 


HOME 




X PRINT 'YOU HAME NOU miED THE PICTURES IN* 


442 


PRINT _ - - 




x PRINT "YOUR FIbE mX> SAVED THE NAMED FItE.* 


444 


PRINT 




: PRINT "YOU MAY STOP AT THIS POINT f?rrURN* 


445 






> PRINT "LATER BY RUNNING THE "TALklNH TEtrf* 


446 


PRINT 




: PRINT "EDITORS PROGR^ AND NAMING YOUR' 


447 


PRINT 




i PRINT 'PICTURE FILE.' 


448 


PRINT 




1 PRINT 'OR YOU HAY 8C DIRECTLY INTO THE' 


449 


PRINT 




: PRINT 'TALKING TEXT EDITOR NOU j44D URITE' 




490 


PRINT 




J PRINT *A STORY 0SIN(5 THE PICTURES.' 


452 


GOSUB 20100 




t HOME 




456 


PRINT 




: PRINT MF YOU IWNT tO USE THE TEXT EDITOR NOW, 


438 


PRINT 




J PRINT "TYPE 'Y' BELOU." 


460 


PRINT 


t PRINT 




1 INPUT "USE TEXT EDITOR NOU? <Y/N) l"{I* 



49 

o 

ERIC 



ERIC 



462 IF if < > -Y' WD if < > "y" THEN END 
470 PRINT Df'RlJN mklNS TEXT EDITOR" 

900 HOME 
I VTAB 11 

I PRINT -liETTINS FR«1E "jZ 
50E PRINT -PRESS 'RETUK-i' mm DONE yiEWING.' 
519 ef i "SEARCH FRAME ■ ♦ STRf <FR<2)) 4 ■ SEARCH" 
525 & Cf 
530 t "FLIP- 



540 err it 

J IF ASC <If) < > 13 THEN 540 
550 & "FLIP- 



SSI PRINT 
I PRINT 



552 INPUT "WANT TO KEEP THIS PICTURE? <Y/N> t"ilf 
I IF If a "Y" OR !f "y- THEN 560 

553 IF If < > "N" mo if < > "n" THEN 352 

SSS FOR 2| " Z ♦ 1 TO L 
I FR<Z1 - 1) ■ FRCZl) 
t f«Hf<21 - 1) - r«siHf<21} 

I NEXT 

I b a t - 1 

I 2 - Z - 1 

I REtURN 



560 PRINT : 

t PRINT "ENTER fmE FOR THIS FRAME" 

t PRINT 

I INPUT "NAMEl *jrW1f<Z) 



565 NAMf<2) - LEFTf <hW1$<2>,18) 

57i) RETURN 

300 * "FLIP" 

669 FOR 2 « 1 TO L 



50 



46 



610 C» « "SEARCH FWWE ' * STR» <FR<2)) * • SEARCH' 



iAO erf I* 

: IF ASC <If) < > 13 THEN 640 



660 NEXT 2 



665 & "FLIP" 



676 RETURN 



20000 KTAB <20 - LEN <Cf) / 2) 
; PRINT D$ 
: RETURN 



20100 MTAB 23 

: C$ » "PR£SS RETURN TO CONTINUE' 
t GOSUB 20900 
: POKE - 16368,0 



20110 IF PEEK < - 16384) < > 141 THEN 20110 



20120 POKE - 16368,0 
: RETURN 



51 
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